home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aam.d64 / circles.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  691b  |  30 lines
  1. 5 DIMS(15):DIMI(7)
  2. 7 CY=229
  3. 10 POKE53280,5:POKE53281,0
  4. 15 PRINTCHR$(147);CHR$(159)
  5. 20 V=53248
  6. 21 POKEV+21,0
  7. 22 INPUT"# OF ITERATIONS PER CYCLE";CY
  8. 23 IT=CY/6.26666666
  9. 24 PRINTCHR$(147)
  10. 25 TBL=13:MEM=TBL*64
  11. 31 POKEV+23,255:POKEV+29,255
  12. 35 FORI=2040TO2047:POKEI,TBL:NEXT
  13. 40 FORI=39TO46:POKEV+I,I-36
  14. 45 GOSUB85
  15. 46 POKEV+21,255
  16. 50 FORI=0TO62:READJ:POKEMEM+I,J:NEXT
  17. 60 K=K+1:IFK=CY+1THENGOSUB85:END
  18. 62 FORI=14TO0STEP-2
  19. 63 I(I/2)=I(I/2)+(INT(I/2)+1)/IT
  20. 65 S(I)=50*SIN(I(I/2))+160
  21. 70 S(I+1)=50*COS(I(I/2))+120
  22. 71 POKEV+I,S(I):POKEV+I+1,S(I+1)
  23. 75 NEXTI
  24. 80 GOTO60
  25. 85 FORI=0TO14STEP2:POKEV+I,160:POKEV+I+1,170:NEXT:RETURN
  26. 1000 DATA0,0,0,0,0,0,0,0,0
  27. 1010 DATA 0,255,0,3,129,192,6,0,48,12,0,24,24,0,12,48,0,6,48,0,6,48,0,6
  28. 1020 DATA 48,0,6,48,0,6,24,0,12,12,0,24,6,0,48,3,129,192,0,255,0
  29. 1030 DATA 0,0,0,0,0,0,0,0,0
  30.